(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     24929,        500]
NotebookOptionsPosition[     24610,        484]
NotebookOutlinePosition[     24952,        499]
CellTagsIndexPosition[     24909,        496]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"lst", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "4", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "5", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "7", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "0", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "4", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "5", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "6", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "7", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "1", ",", "2"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rlst", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"6", ",", "4", ",", "0.158155"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "4", ",", "0.002171"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3", ",", "0.122236"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "0", ",", "0.106860"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "0", ",", "0.149059"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "2", ",", "0.053809"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1", ",", "0.914355"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "0", ",", "0.261583"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "6", ",", "0.000308"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "2", ",", "0.053755"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6", ",", "0.002274"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "4", ",", "0.004206"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "2", ",", "0.053819"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0.018877"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "1", ",", "0.417970"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "5", ",", "0.871470"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "3", ",", "0.306691"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "5", ",", "0.185212"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "3", ",", "0.120801"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "0.043098"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "3", ",", "0.124040"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "6", ",", "0.002551"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "5", ",", "0.219098"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0.485973"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2", ",", "0.087924"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "0", ",", "0.737358"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4", ",", "0.044611"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "1", ",", "0.594108"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1", ",", "0.478515"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "2", ",", "0.051179"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "6", ",", "0.859491"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "6", ",", "0.186748"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "3", ",", "0.134267"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "5", ",", "0.005770"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "5", ",", "0.069211"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "6", ",", "0.000108"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "4", ",", "0.186496"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "5", ",", "0.043858"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3", ",", "0.870331"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "0", ",", "0.106552"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "1", ",", "0.460943"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "4", ",", "0.867235"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", "=", 
   RowBox[{
    RowBox[{"ListPlot3D", "[", 
     RowBox[{"#", ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<large\>\"", ",", "\"\<small\>\"", ",", "\"\<ratio\>\""}],
         "}"}]}], ",", 
      RowBox[{"InterpolationOrder", "\[Rule]", "0"}]}], "]"}], "&"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"p", "[", "lst", "]"}], "\[IndentingNewLine]", 
 RowBox[{"p", "[", "rlst", "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.532684452390625*^9, 3.5326845787353516`*^9}, {
  3.532684669352539*^9, 3.5326846729873047`*^9}, {3.532684718232422*^9, 
  3.532684722541992*^9}}],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJztmkGO5EQQRYsBi5IoMG5wU7RmMZykfQaOgDRrrlAX4S4+SC9mxcqLEVJK
s6hBIHX+GPXL+O3yMEjQai/a8qvf4cjIcDoyqn765defX7/Y7Xa//f3n852O
t7ePn88rn++m+9O7ev3GcF2TH8B53zW9+NWF9tf0159If/OJ9ORf1LPi/Ap6
cupfgsuuOOdLnPNC/hac/vC+5Ad8Ln6Fz2l/K+e4XBzcfa/xOe1v5bS/9b43
+Jz2t3La/9j73mzktLPVvuL1BvnIfFvjzEM+d1zHaEec/qzxK3D6cyln/tA+
uRvvpX6u8Wtw+nkpZx7SPvlaHNb8XOM34PTzUs48p33ytTis+bmV08+t/tO+
jhfTQzs8HKcdzi/tkzNua3Y4rjU7fF+v2aFe69kR11wXL+WcL9rnfW39tsu5
/s/pWYeQ007zXq4H171L+dVGfr2R32zkOhg3jp9n2rm7rf89PeRLPb+/TfVx
1v8t+D/xUq9/B79jvGGHvDzOT38a+3y+FsOL4XecN9ghL4bfcT5hh7wYrroZ
9fnpsynlzf7nJfTMG8YTPOZRnP7QPnlfz1/Cn6FefwV/zph32md92+X8tDf6
g9H3hg853xzn6ueJ+urn9OIhn76rn38DO2M9D+Bn5DP9YR3e5TziRv3B6HvD
h5xrXI390fD/ST7M9fmfGYf6vjx9b8aFfUqMi/uXLucxLuoPRt8bPuQ85ov2
x5wrDo39Y86fat5OdR2f3Hif5/3+jPoz4sC6tMt5xMHt66nvDR9yHnGg/THn
EQfaP+ZceWLHizo8xsv6nO+Xem7eL/qc9qFveA8ufwbD+d6XHb73nX3qwWNe
GIcx5837VHHg+9TZpx485p1xOOa8eV9ovHxfOPvQN/Fx+2jW86z/F3DuF1jH
vjf2/2md/9Tr+ed173HO55fvU85LHJUvhhfDZYf768XwYvgZ9rlfA4/51cF1
nrw3fMh5zCN4zCN4zCPtH3Me80X7/L6Hec4+RZfziAP1rOOZ5+TcLzHPaX/M
+cw6hnlO+66/pjiVh3muvlazj1S/q8v5h3wB7w0fcv4hX3DfMeczn8d3zBfY
d99X6vlj34/PnzifP3H3PSP1f+B9J/51PTMfOS/gVs/85byQM085L7wv85Tz
QvvMU8WN9QDjz++tiuHsi+g5pR1x2hE3dprnQnr6/2/fV3UG7YvTvjjtX63Y
5/MuPZ936RGHU82P5nn/r/mvfKU/4vRHnP5cG3+kpz/SO39Yl0rPdVWccZYd
5uePlXNdfapx0LrPcYlzXOIcV+XNuKTnuKTnuKTnuKTnuMTNuJr3puxzfsWZ
D8/xuT/Nef0zV31Tb+hgPHVwP6uDdZcO/m6tHuEP9Yyn9IynOOMmzrjpinHT
wbjVw8Wnqcc+tm5lfoozP9nn431Xvidp9Iwn9wHUM87cB4A3ceY+ANzVvc33
pKyvXj3UN3F29Yx5v9v3i1tn5J37/QD1fB7FWT+r7/Tt/bmpe2sfkPXzrL4c
6uGmbtE8/VDPrIf5PpV9rhvOH8WB9b8bl9Yl+i89/WTfgPsOce5TdM19zdnY
ORs759xOjH8xvBhu/Gn2R9JxfyQ98kT/Tztx3Rk9863D/3F9oT/S0599rhdv
7nvI9bGPoP0+5xEf7hPF8VxEHPgciXNf2eX64LS/z/XBaf+Q64PTfp/rg1M/
GP2Q6yezzgSn/2b9Ufyb9Ud5jvVH8ac+8pL79y7XRz7R/j7XRz7R/sHYP+R6
xaux3xv9YPRDrpeO+rim/6Pxf8z1Wvepj/cB/T/mPObd9O2b93iX85gv895v
9L3hQ84jnqZvTx7xMX37xv5NziM/WR+Ksz4UR30YebsYXgw3dvh+j7ylfXHa
F6d9rUvOPuqHyH/eV5z3Fed9tb7xvtKb+7JuieeB9Zt4Mfycc/oTetZR0jt/
WM/rOWReiTOvxLnv0HrOek967juk575DeuMn68DZ9HNm08+ZTT9nNv2c2fRz
ZtPPmU0/Zzb9nNn0c2KdZD6LM5/Fmc/6vpv5LD3zWfq90R+MvjfcjIt1+2T6
M5Ppz0ymPzOZ/sxk+jOT6c9Mpj8zmf7MZPozk+nPTK4/o/2h+Z1A01cRZ19l
MfplRc/9dTH8Lu8jhY7Pu/R83hdjZzF2FmOnGDvF2CnGjvxkf0Oc/Y3F6Bej
L0ZfjF6/D+E+V3Fm/ixGvxh9Mfpi9PW+TX9G8WEfbDH6xeiL0RejP0PPfRz6
b8oP6mMfx35dl+tjH0f7e2N/n+u1vjT2D7leedPY741+MPoh1ysPqI+6gv6P
xv8x18fvsszvGxv/j8b/Y66fTD8q1mf6r+fL/O6o4cVwrafoQ8Z6xP5kB87f
pZD3hg85j+eZ/cYx57Ppc0a8aL/tf/4FW8um7g==
   "], {{
     {EdgeForm[None], GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJwlzjtOAlEYQOELNoYVGAKFVnSUrgFKCwuExpZElyBuwAoSUQsTA0tASh7i
A4G4ARtjYSMN2liA380UJ+f8/525M7vHpwcn6RBCFlsopUJo8YLfcafH/IlL
PeI253GLX3OXJ3zkonPdwJu5yTsYxLP4PK/Q0Q8cv3uGSjp5p4ac/TCV/Eu8
a9vZPT/a9VDX13xov9YbXJkDanYZ9I1P5htUQ/Lchf2cn+2KeqXL+DDnYnPe
/ku/6D39rae6rP/0XO/rHz3TBb3Ur/ofuNguZg==
         "]], Polygon3DBox[CompressedData["
1:eJxNmHn80EMax+f5lpLbEllFOUokUo5SkqvaiBLa2HRTOlVKpXT8uu/IFV7t
rnXuOpY9HGsva68XUc4iYWVlWXYJRft593m8XvvH5zXPMfPMzDMzzzwzTQaM
6jmyKqV0j1JqqzxT5UiVTVQul6KXyqvFH6HyRvFnqRwl/jCVK8RfofIa8Uep
vEX8aSrriZ8nXCW+vfg6omuEweIvEz9OdFOVN4k/XeUe4hcKY8T3FN9K9HPC
RPG7C8dKNkb8r1UOEV+prCVcKfpHKvsXy9CdoXJv8UuECeK3iv9c+EL4MqhY
yl9U/BVS9DeS/blYhg4Zur8JtSu3eZy+i21dILQQ/cdiu/itqeiHhH+I/lh4
TPQvhE9E/0t4tFiGrrNwgOgVwsuim6iPxsKRQtPKNrH9TPGYtwvPFo+RsT4r
NBf9B2G3yj7AF7WFYaIXq5wkXQuVt4sfqrKb+M+E5uK7iW8serXwiuj7hCmi
T2Fc0k9UOVH80SpvE3+Ryrbi/ykcKH6J+D6ivxa6iZ8kvpfobdgQ/wPxZzBX
4RB4NpdkIfQT3aCyne8KBwu/zH03Q7hM/H7CJtFvC/uL/o7wVrEM3b7CxmIZ
OvZEa9GvFe+VQyv3e7hwROU5M/fPheNF7yG8Lnq9sGfuL9oiQ4cM3QZhL9GL
ZL+H6J7CtaInCF1EdxWuFN0358jc+guHVV5T1rKZ8JLqrBPOFs4Jzx1fflDs
g0slO1n0+0KjHDu++3fxHPABvnhHqF8Z0O8Wr9dXav+n4j3CXtlHsjeLfYSv
mANzeUPYW/T1woui1+Jz0VOFF4pl6AgGdWSnrjBa9HBhl7AM3V0qBxbL0E0S
nhe/RpiCfZUNpWskXFoZ0IeE15cxMBbGyFhpQ1vGwFjuVr3Boncl7lTeU+yt
7UKnymeSs/l3oU6enUNzrTlDB+UeY281FO4lTqjuQSqXVI4pxBbGzNjpg77q
EZcqA3o34lrlM8hZxMf4eovw8+IzzdnGh/hynTBL9ErhPWJBcbw8Ovcge6+V
MBkfqN1ewrWiVwnHQKv+UyrbiW9LHBPOFJ7mXLNX8jy3F04VzhLOrmxjYq4D
tpfiD9WdrDa/UXlP2KfMc6xws/ChdFuK4+8NwjLRS4vj+QhhvugBwk/U7sfh
GEtsvSIxR7p+xTpiBLGCOazKPhZJN6i4b2zclXsF28ekT/DFCZXn3J1YV9ye
O4S7pLlwq+hfqdyveIyMFZ9yFx0Z9vXjKtsU+xyeOXA3HR6u/5rKV4X1wgZh
GTFA5Z7h++29cNzeLLyfuEe27i7WdUif4+tz0r+7h21gCx8PKZahW6PyeeFF
YW3SzwkvpIyxEHdf/78x3ab2txaP9UlihehPi+c/X3hF9KvCQtFPSN++eA1Z
S9aQu7RZmG+RPsa3rSvbwNYnxb5dm+MgLnH/tM0z1in33Fzh5eI+6Xu28FKx
DN1FQi/hUbV9TLhQdE/hEc6FcJzolsKJwklZlzroaMMZ4axgE9v4/WHRj3DH
ZIwgVowovhuQoePMbcm14q6lzeb05WrRPyz2KWejXZ4dzgh+X8leL47Dd3CO
hIulu0R4hr0i3YPCZ6LfYs8Tw7iDsu4q4ZviNnemDdr2zrn3EB4O++By0TNV
ty9jCmN1+J5Ad2yuEWvTpvKZ5q6+rviscwY4C1uLz1bLbNMmfcqakTssL17L
Biq75D5bk2vLnNflGp+nNucKD4j+qXC+6O7Cz0Q/GB77BcJD4TlAUwcdstNF
dxS6CF2TPk3onDLoDnk2Oqdt+qQv+qBv8oT7w2OAJncYXizrI/77QtvYmX7t
nB/j5q4kV+qd60Qd6n7KPFTvAe7IMMiryLXQ/Zd+i+vAB0Yr53W1Ek8TG4t1
H4Xj+MdpaxfJfltch7o7wnkXNqi/UfSbuU82Ce+wH6S+vZjflLq3U/eucGdx
HfgPw/uYPj/KPpnL/cV8rRwr9xxjWZ+x4o3s9zx8mnGEeMF4VhXHkA3ZP2NB
tjHjy/psC/9BnqktOZa66uN3xXOmv3rC74tl6OirW54z+pwiTM64wTmbyt7N
c0ecvK7ync5dPi2xr/T7hHX48ynZflL4OmXouBO5v8CktIFum+RPFOfg5OLs
gx1lZ0q5c89gA1vU2ZZjIyclprXNNWOt6XNHri++JXeom4DeNeeOve255tQn
JhAb2FPsLfr4KutQt0f4TUDevjX3IHvxP7kXWVPW9r5ifwPoe4vX4vzwG4K4
xn1D/nmcypbhfJQc6QTRrcK5Ezld67AMHTlwm7AMHfnhyaJPCueO5H/Hh21i
mxz6xHAb2lKHusjQ0Qd90Ya25Ji8DbBZP3lyz6HFb4eLw28E8lryrktSBk0u
Rh5GntubtRP6CZeH8zby5IZZB12f1PUN53TUaZR10JErY3Oz+j6luC/q8uYg
b6YNPsN3vBnJ7ckLyaP7ix8QjqPE3qtFjxVGCMPDMZk4Oyz8ZiJnI085qnIe
P1iyIeEcE5vYGphtrwrfudjgTcbbjDPEfkKHTWxRhzVn7ckxvs03NueZRDed
NQ2fGc4O7wj6pK9BwsgcM2PlbiCPIrccJdno8L2PDHpMeK7IoJlzs7SJLebE
nYJP8MW48J2NDHo8615ZBn2N8L3iMdA3dz33w5eSXSjMkHwmeyw8B+bCmf0i
zwxnp4Y9F65DXe4M7o654ueFaXKtOWHZdOH68D3D3QM9LXznIIMmBhF7kHVJ
m9iaH85pyG1mip4VHiM2O+bYV4heHr63uPduCMuguQuXiV4avse41/jT4J3d
IfzXMUr0guKcmfyW+ZHjkNvMybmQh8wOz4k1JTby1sI/XXPMjHUB/k0Z9MIc
G2Ogb8bIWHiDc48ypkWV88LFld839EXuUxPu88bwnJgLdz1/MPzFzCLHrxy7
ienEcmI4OQq5Cm/ZAQnqktOg4y4mDyIGE4t5D/A24B9iqHCLbN0czvvIFbmz
p6nu1OK7HP/xNzS3uP7QbDssdfDoeGNgG1s3hXNIbEKvDOddyFbmHJlbz5w7
a85a44OB+J67TWgXnhdvdeSDcn79kx6cgD41/Hc1KOvSFhk+5i3ZIOx75ngw
sa147uTbvF0mFOfy7A/ezbyl+d/ijcLbZWzx24U3CH9tjcPvCf6s+LtaLIyv
nNOT248vzv15X/GW4506PkFd3lxjsw/66hj+W4Pnb409yljog754I/Je4b3E
22//4r+9eZXzfHL/Bfg4/CfHG5O3Jnt8eM5pVO7x+uEzXZP7Ed8cGG4/Pfc6
7+SZiRl5Rmqyj/m5h2nLm4232+jitx96bB2QY8M/vMs7hf/66H92jnle+mNc
1pmQMtrWz7r/AwundJY=
         "]], Polygon3DBox[CompressedData["
1:eJwt0stLVGEYB+AzQ6FNKBVIOHZhulDZQjcaFKVSVkrRVRPUsgINF9nKahNU
4KoMpJtGaClFf0BRu25EVzNsY1BEVyiKIkuMFj0fx8XD+3t/3+dwzoyZPW1b
9yejKFrCZMYSUXTLLGQpW+ztLqTMafZcKuQLFFDj7Lp5g/XkO68yB3k+Mc/o
0pzlhf0Rn+V8fzuL2Ry115sNHJPvuJOWv8jLWUGd7rAu1yyyF7NNHqFHnsNc
NtoPuJdl5tinUiY/5Zdc5KyUZTzRfdPNkxexmFe6y7oM/by2N1Mml/M9iu+N
hs/jPld0v82L+rS5IzwvnfJ83Q95NWvYrfvEVXkBC9kU3o2/crX7J+STTJGz
eSDfdJaSH8sVcpOZScbPfknepesxG+07eZOIn/0eA87emq36SWbKns1K+T3v
qOa87oN5l265j96J7iXn5ALyqLR3+bwcc7p9RnjH8L+hGwvvxGYO6fYxGsXf
ebt8MLyD/E9XQy3HdX30UufsiO62XCz/kTeE35a28D+l+yiXUMr28Gy6r+Gd
WEWD7hnj4XdzVpWMv9tufurWso4Wd4bDu8gzOc2Qvcm9hJll72Cv/RSdPNS3
6K6Z/wEibWAt
         "]], 
        Polygon3DBox[{{518, 204, 45, 40, 183, 520}, {497, 182, 39, 34, 165, 
         499}, {652, 216, 50, 46, 205, 654}}]}]}, {}, {}, {}, {}}, {
     {GrayLevel[0], 
      Line3DBox[{313, 1, 255, 254, 92, 412, 413, 414, 415, 416, 91, 448, 126, 
       127, 2, 313}], 
      Line3DBox[{129, 3, 449, 130, 4, 439, 109, 286, 285, 284, 93, 128, 129}],
       Line3DBox[{314, 5, 134, 7, 257, 256, 410, 95, 417, 418, 94, 131, 132, 
       133, 6, 316, 315, 314}], 
      Line3DBox[{317, 8, 10, 260, 259, 258, 97, 419, 420, 96, 135, 136, 137, 
       9, 318, 317}], 
      Line3DBox[{319, 11, 13, 263, 262, 261, 99, 421, 422, 98, 138, 139, 140, 
       12, 320, 319}], 
      Line3DBox[{321, 14, 16, 266, 265, 264, 101, 423, 424, 100, 141, 142, 
       143, 15, 322, 321}], 
      Line3DBox[{18, 17, 269, 268, 267, 102, 446, 123, 287, 288, 289, 110, 
       323, 18}], 
      Line3DBox[{145, 19, 440, 112, 291, 290, 111, 324, 20, 144, 145}], 
      Line3DBox[{325, 21, 27, 151, 150, 26, 149, 329, 25, 328, 24, 148, 23, 
       146, 147, 22, 327, 326, 325}], 
      Line3DBox[{330, 28, 164, 451, 163, 33, 162, 161, 32, 331, 332, 333, 31, 
       30, 154, 155, 156, 157, 158, 159, 160, 29, 153, 450, 152, 330}], 
      Line3DBox[{165, 34, 39, 182, 181, 180, 179, 178, 177, 176, 38, 334, 335,
        37, 36, 167, 168, 169, 170, 171, 172, 173, 174, 175, 35, 453, 166, 
       452, 165}], 
      Line3DBox[{183, 40, 45, 204, 203, 202, 201, 200, 199, 198, 197, 196, 44,
        336, 337, 43, 42, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 
       195, 41, 455, 184, 454, 183}], 
      Line3DBox[{205, 46, 50, 216, 215, 214, 213, 212, 211, 210, 209, 208, 
       207, 206, 49, 338, 339, 48, 47, 270, 271, 272, 273, 274, 275, 276, 277,
        278, 279, 280, 281, 104, 425, 103, 456, 205}], 
      Line3DBox[{217, 51, 441, 113, 301, 302, 303, 304, 305, 306, 307, 308, 
       309, 310, 311, 312, 124, 426, 105, 228, 227, 226, 225, 224, 223, 222, 
       221, 220, 219, 218, 217}], 
      Line3DBox[{230, 52, 442, 115, 293, 292, 114, 340, 54, 53, 229, 230}], 
      Line3DBox[{232, 55, 347, 346, 345, 344, 59, 58, 234, 233, 57, 341, 342, 
       343, 56, 231, 457, 232}], 
      Line3DBox[{236, 60, 443, 117, 295, 294, 116, 348, 62, 61, 235, 236}], 
      Line3DBox[{64, 63, 358, 357, 356, 355, 354, 353, 68, 67, 240, 239, 66, 
       349, 350, 351, 352, 65, 458, 237, 459, 238, 64}], 
      Line3DBox[{242, 69, 444, 119, 297, 296, 118, 359, 71, 70, 241, 242}], 
      Line3DBox[{73, 72, 375, 374, 373, 372, 371, 370, 369, 368, 367, 77, 76, 
       246, 245, 75, 361, 362, 363, 364, 365, 366, 74, 243, 460, 244, 360, 
       73}], 
      Line3DBox[{248, 78, 445, 121, 299, 298, 120, 376, 80, 79, 247, 248}], 
      Line3DBox[{82, 81, 397, 396, 395, 394, 393, 392, 391, 390, 389, 388, 
       387, 86, 85, 252, 251, 84, 378, 379, 380, 381, 382, 383, 384, 385, 386,
        83, 249, 461, 250, 377, 82}], 
      Line3DBox[{88, 87, 282, 106, 447, 125, 300, 122, 398, 88}], 
      Line3DBox[{409, 89, 283, 411, 107, 438, 437, 436, 435, 434, 433, 432, 
       431, 430, 429, 428, 427, 108, 253, 90, 399, 400, 401, 402, 403, 404, 
       405, 406, 407, 408, 409}]}, {Line3DBox[{313, 601, 599, 414}], 
      Line3DBox[{2, 602, 600, 415}], Line3DBox[{129, 449}], 
      Line3DBox[{314, 611, 608, 605, 410}], Line3DBox[{6, 133, 132, 131, 94}],
       Line3DBox[{317, 618, 616, 614, 419}], 
      Line3DBox[{319, 624, 622, 620, 421}], 
      Line3DBox[{321, 630, 628, 626, 423}], 
      Line3DBox[{323, 658, 657, 656, 446}], Line3DBox[{324, 659, 660, 440}], 
      Line3DBox[{325, 468, 465, 462, 329}], 
      Line3DBox[{24, 464, 467, 470, 327}], 
      Line3DBox[{328, 463, 466, 469, 326}], 
      Line3DBox[{330, 482, 480, 478, 475, 472, 332}], 
      Line3DBox[{29, 160, 159, 158, 157, 156, 155, 154}], 
      Line3DBox[{333, 473, 476, 479, 481, 483, 484, 450}], 
      Line3DBox[{335, 486, 488, 490, 492, 494, 496, 498, 500, 501, 453}], 
      Line3DBox[{38, 176, 177, 178, 179, 180, 181, 182}], 
      Line3DBox[{337, 503, 505, 507, 509, 511, 513, 515, 517, 519, 521, 522, 
       455}], Line3DBox[{339, 633, 635, 637, 639, 641, 643, 645, 647, 649, 
       651, 653, 655, 425}], Line3DBox[{340, 661, 662, 442}], 
      Line3DBox[{343, 537, 540, 346}], Line3DBox[{344, 538, 535, 341}], 
      Line3DBox[{348, 663, 664, 443}], Line3DBox[{63, 64}], 
      Line3DBox[{352, 545, 550, 356}], Line3DBox[{353, 547, 542, 349}], 
      Line3DBox[{359, 665, 666, 444}], Line3DBox[{360, 375}], 
      Line3DBox[{74, 559, 566, 373}], Line3DBox[{366, 558, 565, 372}], 
      Line3DBox[{367, 560, 553, 361}], Line3DBox[{376, 667, 668, 445}], 
      Line3DBox[{377, 397}], Line3DBox[{386, 576, 585, 395}], 
      Line3DBox[{387, 577, 568, 378}], Line3DBox[{398, 669, 447}], 
      Line3DBox[{409, 597, 437}], Line3DBox[{254, 412}], 
      Line3DBox[{97, 258, 259, 260}], Line3DBox[{411, 438}], 
      Line3DBox[{416, 448}], Line3DBox[{418, 607, 610, 613, 316}], 
      Line3DBox[{420, 615, 617, 619, 318}], 
      Line3DBox[{422, 621, 623, 625, 320}], 
      Line3DBox[{424, 627, 629, 631, 322}], 
      Line3DBox[{426, 534, 533, 532, 531, 530, 529, 528, 527, 526, 525, 524, 
       523, 441}], Line3DBox[{427, 587, 399}], 
      Line3DBox[{439, 604, 603, 128}], Line3DBox[{451, 477, 474, 471, 331}], 
      Line3DBox[{452, 499, 497, 495, 493, 491, 489, 487, 485, 334}], 
      Line3DBox[{454, 520, 518, 516, 514, 512, 510, 508, 506, 504, 502, 336}],
       Line3DBox[{456, 654, 652, 650, 648, 646, 644, 642, 640, 638, 636, 634, 
       632, 338}], Line3DBox[{457, 541, 347}], 
      Line3DBox[{458, 546, 551, 357}], Line3DBox[{459, 552, 358}], 
      Line3DBox[{460, 567, 374}], Line3DBox[{461, 586, 396}], 
      Line3DBox[{255, 598, 413}], Line3DBox[{315, 612, 609, 606, 417}], 
      Line3DBox[{342, 536, 539, 345}], Line3DBox[{350, 543, 548, 354}], 
      Line3DBox[{351, 544, 549, 355}], Line3DBox[{362, 554, 561, 368}], 
      Line3DBox[{363, 555, 562, 369}], Line3DBox[{364, 556, 563, 370}], 
      Line3DBox[{365, 557, 564, 371}], Line3DBox[{379, 569, 578, 388}], 
      Line3DBox[{380, 570, 579, 389}], Line3DBox[{381, 571, 580, 390}], 
      Line3DBox[{382, 572, 581, 391}], Line3DBox[{383, 573, 582, 392}], 
      Line3DBox[{384, 574, 583, 393}], Line3DBox[{385, 575, 584, 394}], 
      Line3DBox[{400, 588, 428}], Line3DBox[{401, 589, 429}], 
      Line3DBox[{402, 590, 430}], Line3DBox[{403, 591, 431}], 
      Line3DBox[{404, 592, 432}], Line3DBox[{405, 593, 433}], 
      Line3DBox[{406, 594, 434}], Line3DBox[{407, 595, 435}], 
      Line3DBox[{408, 596, 436}]}, {Line3DBox[{127, 602, 601, 255}], 
      Line3DBox[{129, 603, 285}], Line3DBox[{130, 604, 286}], 
      Line3DBox[{133, 613, 612, 611, 134}], Line3DBox[{137, 619, 618, 260}], 
      Line3DBox[{140, 625, 624, 263}], Line3DBox[{143, 631, 630, 266}], 
      Line3DBox[{145, 660, 291}], Line3DBox[{147, 470, 469, 468, 151}], 
      Line3DBox[{148, 464, 463, 462, 149}], 
      Line3DBox[{150, 465, 466, 467, 146}], Line3DBox[{28, 482, 483, 158}], 
      Line3DBox[{160, 153}], Line3DBox[{161, 471, 472, 473, 154}], 
      Line3DBox[{163, 477, 478, 479, 156}], Line3DBox[{165, 499, 500, 174}], 
      Line3DBox[{175, 501, 166}], Line3DBox[{176, 485, 486, 167}], 
      Line3DBox[{183, 520, 521, 194}], Line3DBox[{195, 522, 184}], 
      Line3DBox[{196, 502, 503, 185}], Line3DBox[{205, 654, 655, 281}], 
      Line3DBox[{206, 632, 633, 270}], Line3DBox[{217, 523, 301}], 
      Line3DBox[{52, 442, 115}], Line3DBox[{230, 662, 293}], 
      Line3DBox[{232, 541, 540, 539, 538, 234}], 
      Line3DBox[{233, 535, 536, 537, 231}], Line3DBox[{236, 664, 295}], 
      Line3DBox[{238, 552, 551, 550, 549, 548, 547, 240}], 
      Line3DBox[{65, 352, 351, 350, 349, 66}], 
      Line3DBox[{239, 542, 543, 544, 545, 546, 237}], 
      Line3DBox[{242, 666, 297}], 
      Line3DBox[{245, 553, 554, 555, 556, 557, 558, 559, 243}], 
      Line3DBox[{248, 668, 299}], 
      Line3DBox[{251, 568, 569, 570, 571, 572, 573, 574, 575, 576, 249}], 
      Line3DBox[{253, 587, 588, 589, 590, 591, 592, 593, 594, 595, 596, 597, 
       283}], Line3DBox[{254, 598, 599, 600, 126}], 
      Line3DBox[{258, 614, 615, 135}], Line3DBox[{261, 620, 621, 138}], 
      Line3DBox[{264, 626, 627, 141}], Line3DBox[{267, 656, 287}], 
      Line3DBox[{282, 669, 300}], Line3DBox[{284, 128}], 
      Line3DBox[{289, 658, 269}], Line3DBox[{290, 659, 144}], 
      Line3DBox[{292, 661, 229}], Line3DBox[{294, 663, 235}], 
      Line3DBox[{296, 665, 241}], Line3DBox[{298, 667, 247}], 
      Line3DBox[{312, 534, 228}], Line3DBox[{131, 607, 606, 605, 256}], 
      Line3DBox[{132, 610, 609, 608, 257}], Line3DBox[{136, 617, 616, 259}], 
      Line3DBox[{139, 623, 622, 262}], Line3DBox[{142, 629, 628, 265}], 
      Line3DBox[{152, 484, 159}], Line3DBox[{155, 476, 475, 474, 162}], 
      Line3DBox[{157, 481, 480, 164}], Line3DBox[{168, 488, 487, 177}], 
      Line3DBox[{169, 490, 489, 178}], Line3DBox[{170, 492, 491, 179}], 
      Line3DBox[{171, 494, 493, 180}], Line3DBox[{172, 496, 495, 181}], 
      Line3DBox[{173, 498, 497, 182}], Line3DBox[{186, 505, 504, 197}], 
      Line3DBox[{187, 507, 506, 198}], Line3DBox[{188, 509, 508, 199}], 
      Line3DBox[{189, 511, 510, 200}], Line3DBox[{190, 513, 512, 201}], 
      Line3DBox[{191, 515, 514, 202}], Line3DBox[{192, 517, 516, 203}], 
      Line3DBox[{193, 519, 518, 204}], Line3DBox[{207, 634, 635, 271}], 
      Line3DBox[{208, 636, 637, 272}], Line3DBox[{209, 638, 639, 273}], 
      Line3DBox[{210, 640, 641, 274}], Line3DBox[{211, 642, 643, 275}], 
      Line3DBox[{212, 644, 645, 276}], Line3DBox[{213, 646, 647, 277}], 
      Line3DBox[{214, 648, 649, 278}], Line3DBox[{215, 650, 651, 279}], 
      Line3DBox[{216, 652, 653, 280}], Line3DBox[{218, 524, 302}], 
      Line3DBox[{219, 525, 303}], Line3DBox[{220, 526, 304}], 
      Line3DBox[{221, 527, 305}], Line3DBox[{222, 528, 306}], 
      Line3DBox[{223, 529, 307}], Line3DBox[{224, 530, 308}], 
      Line3DBox[{225, 531, 309}], Line3DBox[{226, 532, 310}], 
      Line3DBox[{227, 533, 311}], 
      Line3DBox[{244, 567, 566, 565, 564, 563, 562, 561, 560, 246}], 
      Line3DBox[{250, 586, 585, 584, 583, 582, 581, 580, 579, 578, 577, 252}],
       Line3DBox[{268, 657, 288}]}, {}, {}}},
   VertexNormals->CompressedData["
1:eJztyEERABAUQME/JJFEBxHMOEukowgUMCPAvsM7bOmzjRQR6y7Hq10555xz
zjnnnHPOOeecc84555xzzjnnnHPOOeecc84555xzzjnnnPMfP+l4Gk4=
    "]],
  AutomaticImageSize->True,
  Axes->True,
  AxesLabel->{
    FormBox["\"large\"", TraditionalForm], 
    FormBox["\"small\"", TraditionalForm], 
    FormBox["\"ratio\"", TraditionalForm]},
  BoxRatios->{1, 1, 0.4},
  ImageSize->{424.55371590799666`, 332.58339861433035`},
  Method->{"RotationControl" -> "Globe"},
  PlotRange->{{0., 7.}, {0., 7.}, {0., 8.}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  ViewPoint->{1.5364652567973063`, -2.183575662928407, 2.078766903460211},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{{3.5326844679814453`*^9, 3.5326844730771484`*^9}, {
  3.5326845667089844`*^9, 3.532684579555664*^9}}]
}, Open  ]]
},
WindowSize->{707, 537},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 5992, 158, 392, "Input"],
Cell[6574, 182, 18020, 299, 348, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

